home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / gemfsc18.lzh / AESSRC18.LZH / AESUTIL.S / RCCOPY.S < prev    next >
Text File  |  1992-03-15  |  467b  |  14 lines
  1. ;*========================================================================
  2. ; rc_copy(GRECT *source, GRECT *dest)
  3. ;*========================================================================
  4.  
  5. _rc_copy::
  6.           .cargs    #4,.psrce.l,.pdest.l
  7.           move.l    .psrce(sp),a0
  8.           move.l    .pdest(sp),a1   
  9.           move.l    a1,d0               ; return pdest
  10.           move.l    (a0)+,(a1)+
  11.           move.l    (a0),(a1)
  12.           rts
  13.           
  14.